home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / os2 / winstall.zip / WINSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1994-12-19  |  20KB  |  507 lines
  1. /************************************************************/
  2. /* REXX - WIN-OS/2 Installation Utility for OS/2 Warp v3    */
  3. /* David J. Looney  19 November 1994                        */
  4. /* Windows is a Trademark of Microsoft Corporation          */
  5. /* WIN-OS/2, OS/2, & OS/2 Warp v3 are Trademarks of IBM     */
  6. /*                                                          */
  7. /* This utility is distributed free into the public domain. */
  8. /* No warranty is made as the performance or suitability of */
  9. /* this code for user purposes, and no liability for damage */
  10. /* to data, equipment, loss of revenue or impairment of     */
  11. /* physical or emotional health due to use of this program  */
  12. /* is assumed.  Use at your own risk.                       */
  13. /*                                                          */
  14. /* This program should only be used by those holding valid  */
  15. /* IBM OS/2 2.10 or 2.11 AND OS/2 Warp v3 licenses.  Note   */
  16. /* that 'UPGRADE' licenses may exclude concurrent use.      */
  17. /************************************************************/
  18. '@echo OFF'
  19.  
  20. Call RxFuncAdd 'SysLoadFuncs','REXXUTIL','SysLoadFuncs';
  21. Call SysLoadFuncs; 
  22.  
  23. Call SysCls
  24. Say ""
  25. Say "         WIN-OS/2 Installation Utility for OS/2 Warp v3(TM)"
  26. Say ""
  27. Say "      ╔══════════════╗"
  28. Say "  ╔═══╣ WINSTALL 1.0 ╠═══════════════════════════════════════════╗"
  29. Say "  ║   ╚══════════════╝                                           ║"
  30. Say "  ║ This utility will build WIN-OS/2 under Warp v3 from the      ║"
  31. Say "  ║ 2.1 (Fullpack) AND  OS/2 2.11 CSD full version diskettes     ║"
  32. Say "  ║ or a 2.11 \os2\mdos\winos2 backup.   If you do not use       ║" 
  33. Say "  ║ the 2.11 CSD version,   you will probably not find seam-     ║"
  34. Say "  ║ less WIN-OS/2 support satisfactory. Though seamless pro-     ║"
  35. Say "  ║ grams will load and run on the desktop they can only be      ║"
  36. Say "  ║ maximized and restored, but not resized, moved, or mini-     ║"
  37. Say "  ║ mized, and can sometimes hang the system. In addition, to    ║"
  38. Say "  ║ run 'seamless' WIN-OS/2 your card must support SVGA or       ║"
  39. Say "  ║ 8514 resolution under drivers supplied by OS/2 Warp v3 to    ║"
  40. Say "  ║ function  properly --- I have not been able to get seam-     ║"
  41. Say "  ║ less VGA using my TVGA8900CL. If you have a backup of the    ║"
  42. Say "  ║ winos2 and winos2\system directories after 2.11 CSD appli-   ║"
  43. Say "  ║ cation, you may wish to skip the 2.1x disks and restore      ║"
  44. Say "  ║ your 2.11 winos2 directory and subdirectories after run-     ║"
  45. Say "  ║ ning WINSTALL.  Be aware that many programs enter data and   ║"
  46. Say "  ║ replace Windows(TM) drivers,and that restoring may not       ║"
  47. Say "  ║ lead to a successful install of WIN-OS/2.                    ║"
  48. Say "  ║                                                              ║"
  49. Say "  ╚══════════════════════════════════════════════════════════════╝"
  50. 'pause'
  51.  
  52. Call SysCls
  53. Say ""
  54. Say ""
  55. Say "      ╔══════════════╗"
  56. Say "  ╔═══╣ WINSTALL 1.0 ╠═══════════════════════════════════════════╗"
  57. Say "  ║   ╚══════════════╝                                           ║"
  58. Say "  ║                                                              ║"
  59. Say "  ║ You will also need OS/2 Warp v3 on diskette or CD-ROM, and   ║"
  60. Say "  ║ may  wish to use Inimaint (Carey Associates) or a similar    ║"
  61. Say "  ║ utility to backup your desktop. Backup your system before    ║"
  62. Say "  ║ attempting to install WIN-OS/2 support.                      ║"
  63. Say "  ║                                                              ║"
  64. Say "  ║ WINSTALL also requires you to use ED or TEDIT to change      ║"
  65. Say "  ║ path information in the config.sys file, and autoexec.bat    ║"
  66. Say "  ║ files, as well as system.ini file, and progman.ini files.    ║"
  67. Say "  ║                                                              ║"
  68. Say "  ║ Use selective install to put your system into standard VGA   ║"
  69. Say "  ║ configuration before using WINSTALL unless you are running   ║"
  70. Say "  ║ default XGA configurations on hardware that uses the OS/2    ║"
  71. Say "  ║ standard XGA drivers (XGA default not tested by author).     ║"
  72. Say "  ║                                                              ║"
  73. Say "  ║ Press Ctrl-C or Ctrl-Break now to abort.                     ║"
  74. Say "  ║                                                              ║"
  75. Say "  ╚══════════════════════════════════════════════════════════════╝"
  76. 'pause'
  77.  
  78. Call SysCls
  79. Say ""
  80. Say ""
  81.  
  82. CurDir=directory()
  83. Result=CHAROUT( ,"Enter the drive letter on which OS/2 Warp v3 is installed: ", );
  84. PULL ANS .
  85. OS2DRV=SubStr(ANS,1,1);
  86. WINDIR=OS2DRV||":\OS2\MDOS\WINOS2"
  87. WINSYS=OS2DRV||":\OS2\MDOS\WINOS2\SYSTEM"
  88. Call SysMkDir WINDIR
  89. Call SysMkDir WINSYS
  90.  
  91. Call SysCls
  92.  
  93. Result=CHAROUT( ,"Do you have Warp v3 on CD-ROM (Y/N) ?" , );
  94. PULL ANS .
  95. CDROM=SubStr(ANS,1,1);
  96. IF CDROM="Y" THEN
  97.  DO
  98.    Result=CHAROUT( ,"Enter the CD-ROM drive letter now:",);
  99.    PULL ANS .
  100.    CDDRV=SubStr(ANS,1,1);
  101.    Say ""
  102.  END
  103.  
  104. InstallWinBase:
  105. Say ""
  106. Say "WINSTALL now needs to install Warp WINBASE files."
  107. Say "If Warp Winbase files are installed you may skip this section."
  108. Result=CHAROUT( ,"Skip installation of Warp Winbase files (Y/N) ?", ); 
  109. PULL ANS .
  110. IF SubStr(ANS,1,1)="Y" THEN signal InstallFastLoad
  111. pause
  112. Say "If files are already present ignore error messages."
  113. InsDir=directory(OS2DRV||':')
  114. IF CDROM="Y" THEN
  115.  DO UNTIL rc=0
  116.    PACKAGE=CDDRV||":\os2image\disk_2\bundle /n:wincfg.dll"
  117.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  118.    PACKAGE=CDDRV||":\os2image\disk_9\winbase"
  119.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  120.  END
  121. ELSE 
  122.  DO 
  123.   DO UNITL rc=0
  124.    Say "Insert OS/2 Warp v3 Diskette 2 into Drive A:"
  125.    'pause'
  126.    PACKAGE="a:\bundle /n:wincfg.dll"
  127.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  128.   END
  129.   DO UNTIL rc=0
  130.    Say "Insert OS/2 Warp v3 Diskette 9 into Drive A:"
  131.    'pause'
  132.    PACKAGE="a:\winbase"
  133.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  134.   END
  135. END
  136. TmpDir=directory(CurDir)
  137.  
  138. InstallFastLoad:
  139. Say ""
  140. Say "If you do not wish to use the Win-OS/2 FASTLOAD Warp option"
  141. Say "or it is already installed, you may skip this section."
  142. Result=CHAROUT( ,"Skip installation of FASTLOAD files (Y/N) ?", );
  143. PULL ANS .
  144. IF SubStr(ANS,1,1)="Y" THEN signal Install210WinEnv
  145. pause
  146. Say "If files are already present ignore error messages."
  147. InsDir=directory(OS2DRV||':\os2\mdos\winos2')
  148. IF CDROM="Y" THEN
  149.  DO UNTIL rc=0
  150.    PACKAGE=CDDRV||":\os2image\disk_12\winenv "||InsDir||" /n:fastload.exe"
  151.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  152.  END
  153. ELSE 
  154.  DO 
  155.   DO UNITL rc=0
  156.    Say "Insert OS/2 Warp v3 Diskette 2 into Drive A:"
  157.    'pause'
  158.    PACKAGE="a:\winenv "||InsDir||" /n:fastload.exe"
  159.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  160.   END
  161. END
  162. TmpDir=directory(CurDir)
  163.  
  164.  
  165. Install210WinEnv:
  166. Say ""
  167. Say "WINSTALL now needs the 2.1 diskettes."
  168. Say "If you have previously installed 2.1 files you may skip this section."
  169. Result=CHAROUT( ,"Skip installation of the 2.1 Environment (Y/N) ?", );
  170. PULL ANS .
  171. IF SubStr(ANS,1,1)="Y" THEN signal Install211WinEnv
  172. pause
  173. Say "If files are already present ignore error messages."
  174. InsDir=directory(OS2DRV||':')
  175. DO UNTIL rc=0
  176.   '@echo Insert Diskette #6 into Drive A:'
  177.   'pause'
  178.   '@'||OS2DRV||':\os2\unpack a:winenv'
  179. END
  180. DO UNTIL rc=0
  181.   '@echo Insert Diskette #7 into Drive A:'
  182.   'pause'
  183.   '@'||OS2DRV||':\os2\unpack a:wininis'
  184. END
  185. DO UNTIL rc=0
  186.   '@echo Insert Diskette #8 into Drive A:'
  187.   'pause'
  188.   '@'||OS2DRV||':\os2\unpack a:winreadm'
  189. END
  190. DO UNTIL rc=0
  191.   '@echo Insert Diskette #9 into Drive A:'
  192.   'pause'
  193.   '@'||OS2DRV||':\os2\unpack a:winacces'
  194.   '@'||OS2DRV||':\os2\unpack a:winenv'
  195.   '@'||OS2DRV||':\os2\unpack a:wintouch'
  196. END
  197. DO UNTIL rc=0
  198.   '@echo Insert Diskette #10 into Drive A:'
  199.   'pause'
  200.   '@'||OS2DRV||':\os2\unpack a:winver'
  201. END
  202. DO UNTIL rc=0
  203.   '@echo Insert Diskette #11 into Drive A:'
  204.   'pause'
  205.   '@'||OS2DRV||':\os2\unpack a:winscrsv'
  206. END
  207. DO UNTIL rc=0
  208.   '@echo Insert Diskette #12 into Drive A:'
  209.   'pause'
  210.   '@'||OS2DRV||':\os2\unpack a:winenv'
  211. END
  212. DO UNTIL rc=0
  213.   '@echo Insert Diskette #16 into Drive A:'
  214.   'pause'
  215.   '@'||OS2DRV||':\os2\unpack a:winenv'
  216.   '@'||OS2DRV||':\os2\unpack a:winsound'
  217. END
  218. DO UNTIL rc=0
  219.   '@echo Insert Display Driver Diskette #1 into Drive A:'
  220.   'pause'
  221.   '@'||OS2DRV||':\os2\unpack a:winvga'
  222.   '@'||OS2DRV||':\os2\unpack a:winxga'
  223. END
  224. TmpDir=directory(CurDir)
  225. Say "WINSTALL has completed installing the basic WIN-OS/2 environment."
  226.  
  227. Install211WinEnv:
  228. InsDir=directory(OS2DRV||':')
  229. Say ""
  230. Say "WINSTALL now needs 2.11 CSD full version (with WIN-OS/2) Disks."
  231. Say "If you do not need seamless WIN-OS/2 or have a 2.11 winos2 and "
  232. Say "winos2\system backup you may skip installation of CSD files."
  233. Result=CHAROUT( ,"Skip 2.11 WIN-OS/2 install (Y/N) ?", );
  234. PULL ANS .
  235. IF SubStr(ANS,1,1)="Y" then signal Installv3Video
  236. pause
  237. Say "If files are already present ignore error messages."
  238. DO UNTIL rc=0
  239.   '@echo Insert Volume SP DISK 2 in Drive A:'
  240.   'pause'
  241.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1090.___ \os2\mdos\winos2'
  242. END
  243. DO UNTIL rc=0
  244.   '@echo Insert Volume SP DISK 5 in Drive A:'
  245.   'pause'
  246.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1043.___ \os2\mdos\winos2\system'
  247.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1064.___ \os2\mdos\winos2\system'
  248. END
  249. DO UNTIL rc=0
  250.   '@echo Insert Volume SP DISK 6 in Drive A:'
  251.   'pause'
  252.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE935.___ \os2\mdos\winos2\system'
  253. END
  254. DO UNTIL rc=0
  255.   '@echo Insert Volume SP DISK 7 in Drive A:'
  256.   'pause'
  257.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE844.___ \os2\mdos\winos2'
  258.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE862.___ \os2\mdos\winos2'
  259. END
  260. DO UNTIL rc=0
  261.   '@echo Insert Volume SP DISK 8 in Drive A:'
  262.   'pause'
  263.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE993.___ \os2\mdos\winos2\system'
  264.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1084.___ \os2\mdos\winos2'
  265. END
  266. DO UNTIL rc=0
  267.   '@echo Insert Volume SP DISK 9 in Drive A:'
  268.   'pause'
  269.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1021.___ \os2\mdos\winos2\system'
  270. END
  271. DO UNTIL rc=0
  272.   '@echo Insert Volume SP DISK 10 in Drive A:'
  273.   'pause'
  274.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE849.___ \os2\mdos\winos2'
  275.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE863.___ \os2\mdos\winos2'
  276.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1095.___ \os2\mdos\winos2'
  277. END
  278. DO UNTIL rc=0
  279.   '@echo Insert Volume SP DISK 11 in Drive A:'
  280.   'pause'
  281.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE877.___ \os2\mdos\winos2'
  282.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1086.___ \os2\mdos\winos2'
  283. END
  284. DO UNTIL rc=0
  285.   '@echo Insert Volume SP DISK 12 in Drive A:'
  286.   'pause'
  287.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE830.___ \os2\mdos\winos2'
  288.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE832.___ \os2\mdos\winos2'
  289.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE835.___ \os2\mdos\winos2'
  290.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE837.___ \os2\mdos\winos2'
  291.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE841.___ \os2\mdos\winos2'
  292.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE843.___ \os2\mdos\winos2'
  293.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FINSTAL1.HL_ \os2\mdos\winos2'
  294.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE858.___ \os2\mdos\winos2'
  295.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE860.___ \os2\mdos\winos2'
  296.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1062.___ \os2\mdos\winos2\system'
  297.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1063.___ \os2\mdos\winos2\system'
  298. END
  299. DO UNTIL rc=0
  300.   '@echo Insert Volume SP DISK 13 in Drive A:'
  301.   'pause'
  302.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE927.___ \os2\mdos\winos2\system'
  303.   '@'||OS2DRV||':\os2\unpack a:\fix\os2\FILE1089.___ \os2\mdos\winos2'
  304. END
  305. DO UNTIL rc=0
  306.   '@echo Insert Volume DISP 1 in Drive A:'
  307.   'pause'
  308.   '@'||OS2DRV||':\os2\unpack a:\WINVGA'
  309.   '@'||OS2DRV||':\os2\unpack a:\winxga'
  310. END
  311. TmpDir=directory(CurDir)
  312. Say "WINSTALL is Finished Installing 211 Win Updates !"
  313.  
  314.  
  315. Installv3Video:
  316. Say ""
  317. Say "WINSTALL is now ready to install Warp WIN-OS/2 video drivers."
  318. Result=CHAROUT(,"Skip Warp v3 video driver installation (Y/N) ?",);
  319. PULL ANS .
  320. IF SubStr(ANS,1,1)="Y" THEN signal ModifyInits
  321. pause
  322. Say "If files are already present ignore error messages."
  323. IF CDROM="Y" THEN
  324.  DO UNTIL rc=0
  325.    PACKAGE=CDDRV||":\os2image\disp_1\winxga "||OS2DRV||":\os2\mdos\winos2\system"
  326.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  327.    PACKAGE=CDDRV||":\os2image\disp_1\winvga "||OS2DRV||":\os2\mdos\winos2\system"
  328.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  329.  END
  330. ELSE 
  331.  DO UNTIL rc=0
  332.    Say "Insert OS/2 Warp v3 Display Driver Diskette 1 into Drive A:"
  333.    'pause'
  334.    PACKAGE="a:\winxga "||OS2DRV||":\os2\mdos\winos2\system"
  335.    '@'||OS2DRV||':\os2\unpack '||PACKAGE
  336.    PACKAGE="a:\winvga "||OS2DRV||":\os2\mdos\winos2\system"
  337.    '@'||OS2DRV||':\os2\unpack  '||PACKAGE
  338.  END
  339. Say "Finished installing video drivers."
  340.  
  341.  
  342. ModifyInits:
  343. Say "WINSTALL now updating system INI files."
  344. /* Need null terminator for ASCII0 type settings */
  345. ANS0=X2C('00');
  346.  
  347. Say "Updating INSTALL.INI ....";
  348. IniFile=OS2DRV||":\os2\install\install.ini";
  349. App="WINOS2";
  350. Key="PM_GlobalWindows31Settings";
  351. KeyValue="PROGTYPE=PROG_31_STD"||ANS0;
  352. Result = SysIni(IniFile,App,Key,KeyValue);
  353. IF Result<>'' then SAY "Unable to update "||IniFile
  354. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  355.  
  356. Say "Updating REINSTAL.INI ....";
  357. IniFile=OS2DRV||":\os2\install\reinstal.ini";
  358. Key="WIN30INSTALLED";
  359. KeyValue="NO"||ANS0;
  360. Result = SysIni(IniFile,App,Key,KeyValue);
  361. IF Result<>'' then SAY "Unable to update "||IniFile
  362. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  363.  
  364. Key="WIN31INSTALLED";
  365. KeyValue=OS2DRV||":\OS2\MDOS\WINOS2"||ANS0;
  366. Result = SysIni(IniFile,App,Key,KeyValue);
  367. IF Result<>'' then SAY "Unable to update "||IniFile
  368. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  369.  
  370. Key="WINDOWSSUPPORT";
  371. KeyValue="YES"||ANS0;
  372. Result = SysIni(IniFile,App,Key,KeyValue);
  373. IF Result<>'' then SAY "Unable to update "||IniFile
  374. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  375.  
  376. /* os2.ini */
  377. Say "WINSTALL is updating OS2.INI ...."
  378. IniFile=OS2DRV||":\os2\os2.ini";
  379. Key="PM_ClipboardSupport";
  380. KeyValue="0"||ANS0;
  381. Result = SysIni(IniFile,App,Key,KeyValue);
  382. IF Result<>'' then SAY "Unable to update "||IniFile
  383. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  384.  
  385. Key="PM_DDESupport";
  386. Result = SysIni(IniFile,App,Key,KeyValue);
  387. IF Result<>'' then SAY "Unable to update "||IniFile
  388. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  389.  
  390. Key="PM_Global31FastLoad";
  391. Result = SysIni(IniFile,App,Key,KeyValue);
  392. IF Result<>'' then SAY "Unable to update "||IniFile
  393. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  394.  
  395. Key="PM_Global31SessionType"
  396. KeyValue="19"||ANS0;
  397. Result = SysIni(IniFile,App,Key,KeyValue);
  398. IF Result<>'' then SAY "Unable to update "||IniFile
  399. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  400.  
  401. Key="PM_GlobalWin31DataExchange";
  402. KeyValue="13"||ANS0;
  403. Result = SysIni(IniFile,App,Key,KeyValue);
  404. IF Result<>'' then SAY "Unable to update "||IniFile
  405. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  406.  
  407. Key="PM_GlobalWindows31Settings";
  408. KeyValue="DPMI_MEMORY_LIMIT=64"||ANS0||,
  409.          "PROGTYPE=PROG_31_STD"||ANS0||,
  410.          "KBD_ALTHOME_BYPASS=1"||ANS0||,
  411.          "VIDEO_SWITCH_NOTIFICATION=1"||ANS0||,
  412.          "VIDEO_8514A_XGA_IOTRAP=0"||ANS0;
  413. Result = SysIni(IniFile,App,Key,KeyValue);
  414. IF Result<>'' then SAY "Unable to update "||IniFile
  415. ELSE Say "File:"||IniFile||",App:"||App||",Key:"||Key||" updated."
  416.  
  417. InstallWinObjects:
  418. Result = SysCreateObject("WPWinConfig","WIN-OS/2 Setup","<WP_CONFIG>",,
  419.   "HELPPANEL=4203;"||,
  420.   "DEFAULTVIEW=SETTINGS;"||,
  421.   "NOCOPY=YES;"||,
  422.   "NODELETE=YES;"||,
  423.   "NOPRINT=YES;"||,
  424.   "ICONPOS=6 42;"||,
  425.   "OBJECTID=<WP_WINCFG>;",,
  426.   "Replace"); 
  427. IF Result=1 THEN SAY "WIN-OS/2 Setup Object Installed."
  428. ELSE SAY "Win-OS/2 Setup Object Installation Failed."
  429.  
  430. Result=SysCreateObject("WPProgram","WIN-OS/2 Full Screen","<WP_PROMPTS>",,
  431. "HELPPANEL=8022;"||,
  432. "DEFAULTVIEW=RUNNING;"||,
  433. "NOPRINT=YES;"||,
  434. "ICONPOS=8 22;"||,
  435. "EXENAME=*;"||,
  436. "PROGTYPE=WIN;"||,
  437. "SET KBD_ALTHOME_BYPASS=1;"||,
  438. "SET KBD_CTRL_BYPASS=CTRL_ESC;"||,
  439. "SET VIDEO_SWITCH_NOTIFICATION=1;"||,
  440. "SET VIDEO_8514A_XGA_IOTRAP=0;"||,
  441. "SET DPMI_MEMORY_LIMIT=64;"||,
  442. "OBJECTID=<WP_WINFS>;",,
  443. "Replace");
  444. If Result=1 THEN say "Object: WIN-OS/2 Full Screen created/updated."
  445. ELSE Say "WIN-OS/2 Full Screen creation Failed."
  446.  
  447. Result = SysCreateObject("WPProgram","WIN-OS/2 Window","<WP_PROMPTS>",,
  448.   "HELPPANEL=8022;"||,
  449.   "DEFAULTVIEW=RUNNING;"||,
  450.   "NOPRINT=YES;"||,
  451.   "ICONPOS=19 7;"||,
  452.   "EXENAME=PROGMAN.EXE;"||,
  453.   "PROGTYPE=PROG_31_ENHSEAMLESSCOMMON;"||,
  454.   "SET KBD_ALTHOME_BYPASS=1;"||,
  455.   "SET KBD_CTRL_BYPASS=CTRL_ESC;"||,
  456.   "SET VIDEO_SWITCH_NOTIFICATION=1;"||,
  457.   "SET VIDEO_8514A_XGA_IOTRAP=0;"||,
  458.   "SET DPMI_MEMORY_LIMIT=64;"||,
  459.   "SET WIN_DDE=0;"||,
  460.   "SET WIN_CLIPBOARD=0;"||,
  461.   "OBJECTID=<WP_WIN2WIN>;",,
  462.   "Replace");
  463. IF Result=1 THEN SAY "Win-OS/2 Command Prompt Object Created."
  464. ELSE SAY "Win-OS/2 Command Prompt Creation Failed."
  465.  
  466.  
  467. Call SysCls
  468. UserInstallation:
  469. Say ""
  470. Say ""
  471. Say "      ╔══════════════╗                                             "
  472. Say "  ╔═══╣ WINSTALL1.0  ╠════════════════════════════════════════════╗"
  473. Say "  ║   ╚══════════════╝                                            ║"
  474. Say "  ║ WINSTALL has finished updating the system. You must take the  ║"
  475. Say "  ║ following steps to make WIN-OS/2 functional before reboot:    ║"
  476. Say "  ║                                                               ║"
  477. Say "  ║    Make the following changes to your config.sys file:        ║"
  478. Say "  ║ 1. Add "||OS2DRV||":\os2\mdos\winos2\system to your LIBPATH.             ║"
  479. Say "  ║ 2. Add "||OS2DRV||":\os2\mdos\winos2 to  your PATH.                      ║"
  480. Say "  ║ 3. Add "||OS2DRV||":\os2\mdos\winos2\system to your DPATH.               ║"
  481. Say "  ║ 4. Add DEVICE="||OS2DRV||":\OS2\MDOS\VWIN.SYS to the end                 ║"
  482. Say "  ║    of your config.sys.                                        ║"
  483. Say "  ║                                                               ║"
  484. Say "  ╚═══════════════════════════════════════════════════════════════╝"
  485. 'pause'
  486. CALL SysCls
  487. Say "      ╔══════════════╗ "
  488. Say "  ╔═══╣ WINSTALL1.0  ╠════════════════════════════════════════════╗"
  489. Say "  ║   ╚══════════════╝                                            ║"
  490. Say "  ║    Make the following changes to your autoexec.bat file:      ║"
  491. Say "  ║ 5. Add "||OS2DRV||":\os2\mdos\winos2 &                                   ║"
  492. Say "  ║    "||OS2DRV||":\os2\mdos\winos2\system to your PATH                     ║"
  493. Say "  ║    (Make sure your DOS PATH is not over 128 chars !)          ║"
  494. Say "  ║    And if not using default XGA setup:                        ║"
  495. Say "  ║ 6. Edit "||OS2DRV||":\os2\mdos\winos2\system.ini and change              ║"
  496. Say "  ║    all references from 'xga' to 'vga'.                        ║"
  497. Say "  ║ 7. Edit "||OS2DRV||":\os2\mdos\winos2\progman.ini and change             ║"
  498. Say "  ║    all references from 'xga' to 'vga'.                        ║"
  499. Say "  ║ 8. Reboot.                                                    ║"
  500. Say "  ║ 9. Run selective install to change your system video to an    ║"
  501. Say "  ║    SVGA resolution supported by your equipment.               ║"
  502. Say "  ║ 10.After rebooting from selective install, WIN-OS/2 should run║"
  503. Say "  ║    fine in both seamless & full-screen modes.                 ║"
  504. Say "  ║    Comments to DJLOON@DELPHI.COM, CIS 75246.3364              ║"
  505. Say "  ╚═══════════════════════════════════════════════════════════════╝"
  506. 'pause'
  507.